home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DEQ Promo.cpt / DEQ Promo / stack.txt < prev   
Text File  |  1989-02-26  |  9KB  |  325 lines
  1. -- stack: in
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x0 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 2
  11. -- first background id: 2805
  12. -- card count: 2
  13. -- first card id: 3242
  14. -- list block id: 4826
  15. -- print block id: 0
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 2
  19. -- free size: 9056 bytes
  20. -- total size: 24576 bytes
  21. -- stack block size: 8192 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x00000000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0xFFFF0000FFFF0000
  44. -- patterns[18]: 0x9999999999999999
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0x993366CC993366CC
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x8888888888888888
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF000000FF000000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. --
  69. --
  70. --   This stack is copyrighted 1987 by Howard Bornstein
  71. --   Design Equilibrium, Menlo Park, CA 94025.  415-328-9181
  72. --
  73. --   Permission is granted for non-commercial distribution.
  74. --
  75. --   This is NOT an example of good HyperTalk programming!
  76. --   It is simply a quick hack to display some of the built-in animation
  77. --   capabilities within HyperCard.  You can do some interesting
  78. --   animation without creating huge stacks of cards and flipping
  79. --   through them.  This stack has only two cards.  Everything is
  80. --   controlled from this script.
  81. --
  82. --
  83.  
  84.  
  85. on openstack
  86.   set the userlevel to 5        -- Let people poke around in here
  87.   hide menubar                  -- clean up the scene
  88.   hide msg
  89.   go to card "DEQ"
  90.   repeat until the mouseClick   -- keep playing script until mouse click
  91.     animate
  92.   end repeat                    -- play it again, Sam.
  93. end openstack
  94.  
  95. On closestack
  96.   go to card "DEQ"
  97.   choose select tool            -- restore things back to normal
  98.   domenu "select all"
  99.   domenu "Clear Picture"
  100.   choose browse tool
  101. end closestack
  102.  
  103. on animate                   -- This does all the work
  104.  
  105.   put 40 into dspeed         -- set the drag speed
  106.   choose select tool
  107.   domenu "select all"
  108.   domenu "Clear Picture"     -- start out clean
  109.  
  110.   -- do the "D"
  111.   set lockscreen to true     -- don't show what we're doing
  112.   push card                  -- "I'll be back"
  113.   set the dragspeed to 0     -- So it doesn't take long selecting it
  114.   go to  card "parts"        -- go get the "d"
  115.   drag from 150,176 to 21,336 with optionkey  -- select it in lasso mode
  116.   domenu "Copy Picture"
  117.   pop card                   -- get back to where you once belonged
  118.   domenu "Paste Picture"     -- bring it to main card
  119.   set lockscreen to false    -- show it
  120.   set the dragspeed to dspeed
  121.   drag from 89,236 to 89,132 -- do the first move
  122.   set dragspeed to 10
  123.   wait 2 seconds             -- split it
  124.   drag from 89,132 to 101,132 with optionkey -- the option key makes a
  125.   --                                            duplicate
  126.  
  127.  
  128.   -- Do the "Q"
  129.   choose select tool
  130.   set dragspeed to 0
  131.   set lockscreen to true
  132.   push card
  133.   go to  card "parts"
  134.  
  135.   drag from 298,165 to 178,4 with optionkey
  136.   domenu "Copy Picture"
  137.   pop card
  138.   set lockscreen to false
  139.  
  140.   domenu "Paste Picture"
  141.   set the dragspeed to dspeed
  142.   drag from 241,9 to 241,132
  143.   set dragspeed to 10
  144.   wait 2 seconds
  145.   drag from 241,132 to 229,132 with optionkey   -- split it
  146.  
  147.  
  148.   -- Do the E
  149.   set dragspeed to 0
  150.   set lockscreen to true
  151.   push card
  152.   go to  card "parts"
  153.  
  154.   choose select tool
  155.   drag from 380,13 to 494,123 with optionKey
  156.   domenu "Copy Picture"
  157.   pop card
  158.   set lockscreen to false
  159.  
  160.   domenu "Paste Picture"
  161.   set the dragspeed to dspeed
  162.   drag from 442,19 to 160,127
  163.   set dragspeed to 10
  164.   wait 2 seconds
  165.   drag from 160,127 to 174,127 with optionkey    -- split it
  166.  
  167.  
  168.   -- fade it out and in
  169.   wait 2 seconds
  170.   set dragspeed to 0
  171.   choose select tool
  172.   drag from 20,60 to 305,296 with optionkey -- Select it in lasso mode
  173.   domenu "Copy picture"
  174.  
  175.   repeat 50 times
  176.     domenu "lighten"   -- fade it out
  177.   end repeat
  178.  
  179.   wait 2 seconds
  180.  
  181.   repeat 50 times
  182.     domenu "darken"   -- bring it back.  This works because we selected
  183.     -- the item with the lasso and there are no
  184.     -- enclosed spaces.
  185.   end repeat
  186.  
  187.   domenu "paste Picture" -- This restores the image completely.
  188.   click at 1,1           -- This puts the image on the page,
  189.   --                        otherwise the lasso is still selected
  190.  
  191.   drag from 20,60 to 305,296 with commandkey  -- Select it again
  192.   wait 2 seconds
  193.   domenu "Trace Edges"
  194.   domenu "Trace Edges"
  195.   domenu "Trace Edges"
  196.   domenu "Trace Edges"
  197.   wait 2 seconds
  198.   domenu "Undo"
  199.   wait 2 seconds
  200.   --domenu "Invert"
  201.   --wait 4 seconds
  202.   --domenu "Invert"
  203.  
  204.   -- get the DEQ name/address
  205.   choose select tool
  206.   set lockscreen to true
  207.   push card
  208.   go to card "parts"
  209.  
  210.   drag from 149,239 to 354,319 with optionkey
  211.   domenu "Copy Picture"
  212.   pop card
  213.   set lockscreen to false
  214.  
  215.   domenu "Paste Picture"
  216.   set dragspeed to dspeed
  217.   drag from 159,247 to 72,247       -- Position it
  218.  
  219.   --
  220.   -- Do the consulting message
  221.   --
  222.   wait 2 seconds
  223.  
  224.   choose text tool
  225.   set textsize to 24      -- if you don't have Times 24 pt, installed
  226.   --                         this will not look too good.
  227.   set textfont to "Times"
  228.   set textstyle to extend,Bold
  229.   click at 20,57
  230.   type "Full Service Macintosh Consulting"
  231.  
  232.   --
  233.   -- get the box
  234.   --
  235.   choose select tool
  236.   set dragspeed to 0
  237.   set lockscreen to true
  238.   push card
  239.   go to card "parts"
  240.  
  241.   drag from 356,130 to 502,333 with commandkey
  242.   domenu "Copy Picture"
  243.   pop card
  244.   set lockscreen to false
  245.  
  246.   domenu "Paste Picture"
  247.   set dragspeed to dspeed
  248.   drag from 362,136 to 319,136  -- position it properly
  249.   drag from 319,136 to 319,92   --     "     "     "
  250.  
  251.   --
  252.   -- Now display the services
  253.   --
  254.  
  255.   put 274 into bottom  -- The position in box to type services
  256.   put 20 into spacing  -- Spacing between services as they move up
  257.  
  258.   set dragspeed to 120
  259.   set textfont to "New York"
  260.   set textstyle to "plain"
  261.   set textsize to 14
  262.   choose text tool
  263.   click at 331,260      -- This is where they all start
  264.   Type "‚Ä¢ Hardware"
  265.   choose select tool
  266.   drag from 329,249 to 439,265 with CommandKey  -- This selects it after
  267.   --                                               it is typed.
  268.   drag from 333,254 to 333,bottom-(spacing*8)   -- Compute how far to
  269.   --                                               drag it up.
  270.  
  271.   choose text tool
  272.   click at 331,260
  273.   type "‚Ä¢ Software"
  274.   choose select tool
  275.   drag from 329,249 to 439,265 with CommandKey
  276.   drag from 333,254 to 333,bottom-(spacing*7)
  277.  
  278.   choose text tool
  279.   click at 331,260
  280.   type "‚Ä¢ HyperCard"
  281.   choose select tool
  282.   drag from 329,249 to 439,265 with CommandKey
  283.   drag from 333,254 to 333,bottom-(spacing*6)
  284.  
  285.   choose text tool
  286.   click at 331,260
  287.   type "‚Ä¢ Databases"
  288.   choose select tool
  289.   drag from 329,249 to 439,265 with CommandKey
  290.   drag from 333,254 to 333,bottom-(spacing*5)
  291.  
  292.   choose text tool
  293.   click at 331,260
  294.   type "‚Ä¢ Networks"
  295.   choose select tool
  296.   drag from 329,249 to 439,265 with CommandKey
  297.   drag from 333,254 to 333,bottom-(spacing*4)
  298.  
  299.   choose text tool
  300.   click at 331,260
  301.   type "‚Ä¢ Graphics"
  302.   choose select tool
  303.   drag from 329,249 to 439,265 with CommandKey
  304.   drag from 333,254 to 333,bottom-(spacing*3)
  305.  
  306.   choose text tool
  307.   click at 331,260
  308.   type "‚Ä¢ Training"
  309.   choose select tool
  310.   drag from 329,249 to 439,265 with CommandKey
  311.   drag from 333,254 to 333,bottom-(spacing*2)
  312.  
  313.   choose text tool
  314.   click at 331,260
  315.   type "‚Ä¢ File Recovery"
  316.   choose select tool
  317.   drag from 329,249 to 439,265 with CommandKey
  318.   drag from 333,254 to 333,bottom-(spacing*1)
  319.   choose browse tool
  320.  
  321.   wait 8 seconds
  322.  
  323. end animate
  324.  
  325.